Unit
LMDCal

Declaration

TLMDOnYearChange = procedure (Sender : TObject; Year : Integer) of object;